﻿Public Class MantenimientoEditarEstados
    Private mId As Integer
    Private mMantenimientoBS As BS.Usuarios
    Private mMantenimientoBE As BE.Usuarios


    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Private Sub MantenimientoEditarEstados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mMantenimientoBS = New BS.Usuarios
        mMantenimientoBE = mMantenimientoBS.Obtener(Me.Id)
        Me.txtNombreUsuario.Text = mMantenimientoBE.NombreUsuario
        Me.txtIdentificacion.Text = mMantenimientoBE.Identificacion
        Me.cbEstado.Text = mMantenimientoBE.Estado
        Me.txtIdentificacion.Enabled = False
        Me.txtNombreUsuario.Enabled = False
    End Sub

    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Me.mMantenimientoBS = New BS.Usuarios



        If DatosValidos() Then
            If DatosValidos() Then

                'mMantenimientoBE.NombreCompleto = txtNombreCompleto.Text
                mMantenimientoBE.NombreUsuario = txtNombreUsuario.Text
                mMantenimientoBE.Identificacion = txtIdentificacion.Text
                If cbEstado.Text = "Habilitado" Then
                    mMantenimientoBE.Estado = 1
                Else
                    mMantenimientoBE.Estado = 2
                End If

                If (Not mMantenimientoBS.EditarEstado(mMantenimientoBE)) Then
                    MessageBox.Show("Problemas al Editar")
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                End If
            End If

        End If

    End Sub

    Function DatosValidos() As Boolean
        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty
        Me.cbEstado.Text = Me.cbEstado.Text.Trim

        If Me.cbEstado.Text = String.Empty Then
            mensajeDeValidacion &= vbCrLf & "Estado Es Requerido"

            If primerControl Is Nothing Then
                primerControl = Me.cbEstado
            End If

        End If

        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
            Return False

        End If

        Return True
    End Function
End Class